Cho thuật toán sau: - B1: A :=0;b :=1; - B2: Nếu A≤ 30 thì chuyển qua B3, ngược lại A > 30 thì chuyển B4; - B3:i :=b+2 ; A:=A+b; và quay lại B2 - B4: In ra kết quả và kết thúc thuật toán Program Bai9;Uses CRT;Var A,b:integer;Begin A:= 0, J:=1; While A<= 30 do Begin i := b +2;A := A + b;End; Writeln(A); Readln;End. a) Hãy cho biết, khi thực hiện thuật toán trên, máy tính...
Đọc tiếp
Cho thuật toán sau:
- B1: A :=0;b :=1;
- B2: Nếu A≤ 30 thì chuyển qua B3, ngược lại A > 30 thì chuyển B4;
- B3:i :=b+2 ; A:=A+b; và quay lại B2
- B4: In ra kết quả và kết thúc thuật toán
Program Bai9;
Uses CRT;
Var A,b:integer;
Begin
A:= 0, J:=1;
While A<= 30 do
Begin i := b +2;A := A + b;End;
Writeln(A);
Readln;
End.
a) Hãy cho biết, khi thực hiện thuật toán trên, máy tính sẽ thực hiện bao nhiêu vòng lặp và giá trị của T và j là bao nhiêu (1,0 điểm)
b) Viết chương trình sử dụng câu lệnh lặp chưa biết trước thể hiện thuật toán trên.
a: Thực hiện 5 vòng lặp
T=35
j=11
b: Câu lệnh chưa biết trước là while-do, và chương trình của bạn chỉ cần sửa lại chỗ j:=1 thành b:=1 mà thôi